home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9103.zip / READVAR.BAS < prev    next >
BASIC Source File  |  1991-03-01  |  1KB  |  53 lines
  1. DECLARE SUB PAUSE ()
  2. 'PROGRAM - READVAR.BAS
  3. 'Sample use of variant record programming technique
  4.  
  5. CLS
  6.  
  7. OPEN "MAILLIST.DAT" FOR RANDOM AS #1 LEN = 150
  8.  
  9. FIELD 1, 20 AS MName$, 25 AS Address$, 20 AS City$, 2 AS State$, _
  10. FIELD 1, 5 AS ZipCode$, 10 AS Phone$, 1 AS Tag$
  11. FIELD 1, 83 AS Filler$, 2 AS Age$, 20 AS Position$, _
  12. FIELD 1, 20 AS Company$, 25 AS Address2$
  13. FIELD 1, 83 AS Filler$, 20 AS Spouse$, 6 AS Birthday$, _
  14. FIELD 1, 6 AS SpouseBD$, 30 AS dummy$
  15.  
  16. NbrRecs = LOF(1) / 150
  17.  
  18. FOR I = 1 TO NbrRecs
  19.   CLS : PRINT "Record number "; I; " of "; NbrRecs
  20.   PRINT "°°°°°°°°°°°° NEW RECORD #"; I; " °°°°°°°°°°°°"
  21.   GET 1
  22.   PRINT "Name              : "; MName$
  23.   PRINT "Address           : "; Address$
  24.   PRINT "City              : "; City$
  25.   PRINT "State             : "; State$
  26.   PRINT "Zip Code          : "; ZipCode$
  27.   PRINT "Phone number      : "; Phone$
  28.   SELECT CASE Tag$
  29.     CASE IS = "B"
  30.       PRINT "Age               : "; CVI(Age$)
  31.       PRINT "Position          : "; Position$
  32.       PRINT "Company name      : "; Company$
  33.       PRINT "2nd address line  : "; Address2$
  34.     CASE IS = "P"
  35.       PRINT "Spouse            : "; Spouse$
  36.       PRINT "Birthday          : "; Birthday$
  37.       PRINT "Spouse's birthday : "; SpouseBD$
  38.     CASE ELSE
  39.       PRINT "-- Unknown tag value -- "; Tag$
  40.   END SELECT
  41.   PAUSE
  42. NEXT I
  43. CLOSE 1
  44.  
  45. END
  46.  
  47. SUB PAUSE
  48.   PRINT "Press any key to continue...";
  49.   WHILE LEN(INKEY$) = 0: WEND
  50. END SUB
  51.  
  52.  
  53.